home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga News 95
/
Amiga News 95.iso
/
dpat
/
dpat106
/
bexchange11
/
install_english
< prev
next >
Wrap
Text File
|
1995-07-25
|
7KB
|
312 lines
;
; $VER: Installation de BGUI-Exchange v1.1 (25.7.1995)
;
;
;
(set UserLevel.old @user-level)
; Initialisation des messages.
(set Language 16)
(set #WrongKickStart "\nBGUI-Exchange need OS2.04+")
; S'assurer que l'on utilise un KickStart >= à 2.04.
(if (< (/ (getversion) 65536) 37)
(abort #WrongKickStart)
)
(set LangueHelp "Select which language you want the documentation in.")
(set IconHelp "What kind of icons do you want:\n\n- 4 colors: Standards icons\n- 8 colors MagicWB : Standard MagicWB\n- NewIcon : Standard NewIcon")
(set bguiHelp "The bgui.library makes it easier to create a nice GUI.\n\nbgui.library (C) 1993-1995 Jan van den Baard")
(set Refresh "Choose refresh mode of window")
(set Aspect "Choose size of borders:\n\n- AutoAspect: Keep the screen-aspect-ratio\n- Thin: Force thin mode\n- Standard: Like the system")
(set Frame "Choose buttons look")
(set WindowPos "Where windows should open its GUI ?")
(set NewLook "NewLook mode will create a white listview scroller")
;
; Répertoire de destination
; *************************
;
(set Path.source (pathonly @icon) )
(set Path.dest
(askdir
(prompt "\nSelect or create a directory to install BGUI-Exchange in.\n")
(help @askdir-help)
(default "Sys:Tools/Commodities")
)
)
; Copie de l'executable
; **********************
(copyfiles
(prompt "Copy of BGUI-Exchange")
(help @copyfiles-help)
(source Path.source)
(dest Path.dest)
(choices "BGUI-Exchange" "BGUI-Exchange.info")
)
; Copie de la documentation
; *************************
(set Doc (askchoice
(prompt "Documentation of BGUI-Exchange")
(choices "French" "English" "Deutch" )
(help LangueHelp)
(default 1)
)
)
(if (= Doc 0)
(copyfiles
(source "BGUI-Exchange_FR.guide")
(dest Path.dest)
(newname "BGUI-Exchange.guide")
(infos)
)
)
(if (= Doc 1)
(copyfiles
(source "BGUI-Exchange_ENG.guide")
(dest Path.dest)
(newname "BGUI-Exchange.guide")
(infos)
)
)
(if (= Doc 2)
(copyfiles
(source "BGUI-Exchange_D.guide")
(dest Path.dest)
(newname "BGUI-Exchange.guide")
(infos)
)
)
; On copie les icônes
; *******************
(set Icon (askchoice
(prompt "What sort of icons do you want ?")
(choices "4 couleurs" "MagicWB" "NewIcon")
(help IconHelp)
)
)
; MagicWB ?
; *********
(if (= Icon 1)
(
(copyfiles
(source "Icons/EXE_MagicWb.info")
(dest Path.dest)
(newname "BGUI-Exchange.info")
)
(copyfiles
(source "Icons/Guide_MagicWb.info")
(dest Path.dest)
(newname "BGUI-Exchange.guide.info")
)
)
)
; NewIcon ?
; *********
(if (= Icon 2)
(
(copyfiles
(source "Icons/EXE_NewIcon.info")
(dest Path.dest)
(newname "BGUI-Exchange.info")
)
(copyfiles
(source "Icons/Guide_NewIcon.info")
(dest Path.dest)
(newname "BGUI-Exchange.guide.info")
)
)
)
; Copie de la bgui.library
; ************************
(copylib
(prompt "Copy of the bgui.library")
(source "libs/bgui.library")
(dest "Libs:")
(help bguiHelp)
(confirm)
)
; Parametrage du programme
; ************************
; On prend le chemin de destination et le nom
(set DestName (tackon Path.dest "BGUI-Exchange"))
; ***********
; * REFRESH *
; ***********
(set Icon (askchoice
(prompt "What kind of refresh do you want ?")
(choices "SmartRefresh" "SimpleRefresh")
(help Refresh)
)
)
(if (= Icon 0)
(tooltype
(settooltype "SMARTREFRESH" "YES")
(dest DestName)
)
)
(if (= Icon 1)
(tooltype
(settooltype "SMARTREFRESH" "NO" )
(dest DestName)
)
)
; **********
; * ASPECT *
; **********
(Set Icon (askchoice
(prompt "What aspect do you want for the GUI ?")
(choices "Automatic (following screen-ratio)" "Thin" "Standard")
(help Aspect)
)
)
(if (= Icon 0)
(tooltype
(settooltype "ASPECT" "AUTO")
(dest DestName)
)
)
(if (= Icon 1)
(tooltype
(settooltype "ASPECT" "THIN")
(dest DestName)
)
)
(if (= Icon 2)
(tooltype
(settooltype "ASPECT" "STANDARD")
(dest DestName)
)
)
; *********
; * FRAME *
; *********
(Set Icon (askchoice
(prompt "What kind of frame do you want ?")
(choices "Standard" "XEN")
(help Frame)
)
)
(if (= Icon 0)
(tooltype
(settooltype "FRAME" "STANDARD")
(dest DestName)
)
)
(if (= Icon 1)
(tooltype
(settooltype "FRAME" "XEN")
(dest DestName)
)
)
; *******************
; * NEWLOOKSCROLLER *
; *******************
(Set Icon (askchoice
(prompt "Do you want the NewLook mode for Listview scroller ?")
(choices "Yes" "No")
(default 1)
(help NewLook)
)
)
(if (= Icon 0)
(tooltype
(settooltype "NEWLOOKSCROLLER" "YES")
(dest DestName)
)
)
(if (= Icon 1)
(tooltype
(settooltype "NEWLOOKSCROLLER" "NO")
(dest DestName)
)
)
; ******************
; * WINDOWPOSITION *
; ******************
(Set Icon (askchoice
(prompt "Where do you want the program open its GUI ?")
(choices "Center of screen" "On the mouse" "On the top-left")
(help WindowPos)
)
)
(if (= Icon 0)
(tooltype
(settooltype "WINDOWPOSITION" "CENTERSCREEN")
(dest DestName)
)
)
(if (= Icon 1)
(tooltype
(settooltype "WINDOWPOSITION" "CENTERMOUSE")
(dest DestName)
)
)
(if (= Icon 2)
(tooltype
(settooltype "WINDOWPOSITION" "TOPLEFT")
(dest DestName)
)
)
(message "\nPlease read documentation for other options")
(set @default-dest Path.dest )
(exit)